home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pay1pers.arc / NEWQTR.PRG < prev    next >
Encoding:
Text File  |  1987-01-15  |  533 b   |  23 lines
  1. *** NEWQTR.DBF (v. 2.6)
  2. *** TO CREATE QTRx.DBF FOR CURRENT PERIOD
  3. *** for PERSPAY.PRG (v 2.2)
  4. *** Copyright @ 1987, Martin J. Michaelson
  5. CLEAR
  6. SET TALK OFF
  7. SET BELL ON
  8. STORE SPACE(1) TO QTR
  9. SELECT 1
  10. USE
  11. @ 1,15 SAY "CREATING DATA BASE FOR CURRENT QUARTER"
  12. @ 3,20 SAY "CURRENT PAYROLL QUARTER ? " GET QTR
  13. READ
  14. USE QTR1
  15. COPY STRU TO QTR&QTR
  16. USE PAY_PERS
  17. COPY TO TEMP FIELDS EMP_NMBR FOR END_DATE='  '
  18. USE QTR&QTR
  19. APPE FROM TEMP
  20. INDEX ON EMP_NMBR TO QTREMP&QTR
  21. SELECT 1
  22. USE PAY_PERS INDEX EMPNO,PERSONS,DEPT
  23. RETURN